For Each Single[] (gb)

Dim hSingleArray As Single[]
Dim aSingle As Single
For Each aSingle In hSingleArray
  ...
Next

Enumera ogni elemento memorizzato nell'array.